program test_func_proc;
var
    i : integer;

function f(x:integer):integer;
    begin
        f:=x+1;
    end;

function fv(var x,y:integer):integer;
    begin
        x:=0;
        y:=0;
        fv:=x+y;
    end;

procedure p(y:integer);
    begin
        y:=y+1;
    end;
 
procedure pv(var y:integer);
    begin
        y:=y+1;
    end;  
    
begin
    i:=f(1);
    i:=fv(1,1);
    p(i);
    pv(i);
end
.